home *** CD-ROM | disk | FTP | other *** search
/ CD Actual 3 / CD ACTUAL 3.iso / linux / incoming / jstools-.6v3 / jstools- / jstools-tk3.6v3.0 / lib / jdoc_cmds.tcl < prev    next >
Encoding:
Text File  |  1995-03-14  |  6.3 KB  |  211 lines
  1. # jdoc_cmds.tcl - command procedures for jdoc
  2. # 
  3. # Copyright 1992-1994 by Jay Sekora.  All rights reserved, except 
  4. # that this file may be freely redistributed in whole or in part 
  5. # for non-profit, noncommercial use.
  6.  
  7. ##############################################################################
  8. # jdoc:cmd:about - make the about box
  9. ##############################################################################
  10.  
  11. proc jdoc:cmd:about {} {
  12.   global VERSION
  13.   set about_help [format {
  14.     j:rt:hl "jdoc"
  15.     j:rt:cr
  16.     j:rt:rm "by Jay Sekora, "
  17.     j:rt:tt "js@bu.edu"
  18.     j:rt:par
  19.     j:rt:rm "An X Windows application for viewing help files."
  20.     j:rt:cr
  21.     j:rt:rm "Version %s."
  22.     j:rt:par
  23.     j:rt:rm "Copyright \251 1992-1994 by Jay Sekora.  "
  24.     j:rt:rm "All rights reserved, except that this file may be freely "
  25.     j:rt:rm "redistributed in whole or in part for non\255profit, "
  26.     j:rt:rm "noncommercial use."
  27.     j:rt:par
  28.     j:rt:rm "If you find bugs or have suggestions for improvement, "
  29.     j:rt:rm "please let me know.  "
  30.     j:rt:rm "Feel free to use bits of this code in your own "
  31.     j:rt:tt "wish"
  32.     j:rt:rm " scripts."
  33.   } $VERSION]
  34.   j:about .about $about_help
  35.   j:about:button .about {About jdoc} $about_help
  36.   j:about:button .about {About the Author} [j:about_jay]
  37.   j:about:button .about {About Tk and Tcl} [j:about_tktcl]
  38.   
  39.   tkwait window .about
  40. }
  41.  
  42. ##############################################################################
  43. # jdoc:cmd:help - get help on jdoc
  44. ##############################################################################
  45.  
  46. proc jdoc:cmd:help {} {
  47.   exec jdoc jdoc &
  48. }
  49.  
  50. ##############################################################################
  51. # jdoc:cmd:doc_prefs - preferences panel
  52. ##############################################################################
  53.  
  54. proc jdoc:cmd:doc_prefs {} {
  55.   global JDOC_PREFS
  56.   
  57.   set w .doc_prefs
  58.   toplevel $w
  59.   wm title $w "Help Viewer Preferences"
  60.  
  61.   frame $w.size
  62.   label $w.size.wl -text {Width:}
  63.   entry $w.size.we -relief sunken -width 3 \
  64.     -textvariable JDOC_PREFS(textwidth)
  65.   label $w.size.hl -text {Height:}
  66.   entry $w.size.he -relief sunken -width 3 \
  67.     -textvariable JDOC_PREFS(textheight)
  68.  
  69.   j:colour_chooser $w.textbg -variable JDOC_PREFS(textbg) \
  70.     -label "Normal Background:"
  71.   j:colour_chooser $w.textfg -variable JDOC_PREFS(textfg) \
  72.     -label "Normal Foreground:"
  73.   j:colour_chooser $w.textsb -variable JDOC_PREFS(textsb) \
  74.     -label "Selected Background:"
  75.   j:colour_chooser $w.textsf -variable JDOC_PREFS(textsf) \
  76.     -label "Selected Foreground:"
  77.   
  78.   label $w.textsbw-label -text "Selection Border Width:" -anchor w
  79.   scale $w.textsbw -from 0 -to 25  -orient horizontal \
  80.     -command {set JDOC_PREFS(textsbw)}
  81.   $w.textsbw set $JDOC_PREFS(textsbw)
  82.   
  83.   label $w.textbw-label -text "Text Border Width:" -anchor w
  84.   scale $w.textbw -from 0 -to 50  -orient horizontal \
  85.     -command {set JDOC_PREFS(textbw)}
  86.   $w.textbw set $JDOC_PREFS(textbw)
  87.   
  88.   j:buttonbar $w.b -default save -buttons [format {
  89.     { 
  90.       save Save {
  91.         jdoc:configure_text .t
  92.         j:write_prefs -array JDOC_PREFS -file jdoc-defaults
  93.         destroy %s
  94.       }
  95.     } {
  96.       done Done {
  97.         jdoc:configure_text .t
  98.         destroy %s
  99.       }
  100.     }
  101.   } $w $w]
  102.   
  103.   pack $w.size.wl $w.size.we [j:filler $w.size] $w.size.hl $w.size.he \
  104.     -in $w.size -side left
  105.  
  106.   pack \
  107.     $w.size \
  108.     [j:rule $w] \
  109.     $w.textbg \
  110.     [j:rule $w] \
  111.     $w.textfg \
  112.     [j:rule $w] \
  113.     $w.textsb \
  114.     [j:rule $w] \
  115.     $w.textsf \
  116.     [j:rule $w] \
  117.     $w.textsbw-label $w.textsbw \
  118.     [j:filler $w] \
  119.     $w.textbw-label $w.textbw \
  120.     [j:rule $w] \
  121.     $w.b \
  122.     -in $w -side top -fill x
  123.  
  124.   j:dialogue $w        ;# position in centre of screen
  125.  
  126.   focus $w
  127.   j:default_button $w.b.save $w.size.we $w.size.he $w
  128.   j:tab_ring $w.size.we $w.size.he
  129.   bind $w <Key-Tab> "focus $w.size.we"
  130. }
  131.  
  132. ##############################################################################
  133. # jdoc:cmd:quit - quit
  134. ##############################################################################
  135.  
  136. ### THIS CURRENTLY ISN'T USED
  137.  
  138. proc jdoc:cmd:quit {} {
  139.   if [j:confirm -text "Are you sure you want to quit?"] {
  140.     exit 0
  141.   }
  142. }
  143.  
  144. ##############################################################################
  145. # jdoc:cmd:load - prompt user to select topic from a list
  146. ##############################################################################
  147.  
  148. proc jdoc:cmd:load {} {
  149.   global JDOC_PREFS JDOC_PATH JDOC_TOPIC
  150.   
  151.   if [winfo exists .topics] {destroy .topics}
  152.   toplevel .topics
  153.   label .topics.l -text "Double\255click on a topic:"
  154.   listbox .topics.lb -relief flat \
  155.     -yscroll {.topics.sb set} -exportselection false
  156.   j:tk3 {.topics.lb configure -geometry 30x20}
  157.   j:tk4 {.topics.lb configure -width 30 -height 20}
  158.   scrollbar .topics.sb -command {.topics.lb yview}
  159.   button .topics.ok -width 10 -text OK -command {
  160.     set JDOC_TOPIC [.topics.lb get [lindex [.topics.lb curselection] 0]]
  161.     destroy .topics
  162.   }
  163.   pack append .topics \
  164.     .topics.ok {bottom pady 5 padx 5} \
  165.     [j:rule .topics] {bottom fillx} \
  166.     .topics.l {top fillx pady 10} \
  167.     [j:rule .topics] {top fillx} \
  168.     .topics.lb {left expand fill} \
  169.     [j:rule .topics] {left filly} \
  170.     .topics.sb {left filly}
  171.  
  172.   set topics {}
  173.   
  174.   foreach dir $JDOC_PATH {
  175.     foreach file [glob -nocomplain $dir/*.jdoc] {
  176.       set topic [file rootname [file tail $file]]
  177.       if {[lsearch -exact $topics $topic] == -1} {
  178.         lappend topics $topic
  179.       }
  180.     }
  181.   }
  182.   if {"x$topics" == "x"} {
  183.     j:alert -text "Unable to find any help files."
  184.     destroy .topics
  185.     return
  186.   }
  187.   foreach topic [lsort $topics] {
  188.     .topics.lb insert end $topic
  189.   }
  190.   bind .topics.lb <Double-Button-1> {
  191.     set JDOC_TOPIC [.topics.lb get [lindex [.topics.lb curselection] 0]]
  192.     destroy .topics
  193.   }
  194.   bind .topics.lb <Button-3> [bind .topics.lb <Double-Button-1>]
  195.   j:dialogue .topics
  196.   tkwait window .topics
  197.   jdoc:load_topic $JDOC_TOPIC
  198. }
  199.  
  200. ######################################################################
  201. # jdoc:cmd:print_postscript - print rich-text as postscript using lpr
  202. ######################################################################
  203.  
  204. proc jdoc:cmd:print_postscript {} {
  205.   global J_PREFS
  206.   if [j:confirm -priority 24 \
  207.     -text "Print as PostScript using `lpr' to printer `$J_PREFS(printer)'?"] {
  208.     exec lpr -P$J_PREFS(printer) << [j:tc:ps:convert_text .t]
  209.   }
  210. }
  211.